home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u5.d64 / superdisk ii (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  15KB  |  558 lines
  1. 0 PRINT""
  2. 10 POKE53272,22:POKE53281,1:POKE53280,1:POKE646,0
  3. 20 PRINT"[147]"
  4. 30 PRINT"[212]HE [206][197][215] [211][213][208][197][210][196][201][211][203] [201][201]":PRINT"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]"
  5. 40 PRINT"[211][213][208][197][210][196][201][211][203] [201][201] IS A COMBINATION OF        PROGRAMS FROM [211][213][208][197][210][196][201][211][203]+."
  6. 50 PRINT"[208]LUS [206][197][215] PROGRAMS THAT ARE ADDED TO THE ORIGINALS."
  7. 60 PRINT"[211][213][208][197][210][196][201][211][203] [211][197][210][201][197][211]":PRINT"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]"
  8. 70 PRINT"[205]ORE SMALL UTILITIES IN ONE COMPLETE    PACKAGE."
  9. 75 PRINT"[215]HY HAVE A BUNCH OF UTILITIES ALL OVER  THE PLACE ?"
  10. 80 PRINT"[215]HEN THEY CAN BE ALL IN ONE PROGRAM."
  11. 90 PRINT"[154][194]Y [208]ETE [195]SASZAR"
  12. 100 PRINT"[156][200]IT THE [211][208][193][195][197][194][193][210] TO CONTINUE"
  13. 110 GETR$:IFR$=""THEN110
  14. 120 IFR$=" "THEN150
  15. 130 GOTO110
  16. 150 GOSUB51000
  17. 170 PRINT"[147]":CLR:CLOSE15:CLOSE9
  18. 180 GOSUB50000
  19. 200 PRINT"[205][193][201][206][160][205][197][206][213]"
  20. 210 PRINT""
  21. 220 PRINTTAB(5)"[193]. [211]YS[160][198]INDER"
  22. 225 PRINTTAB(5)"[194]. [193]LIGNMENT [195]HECK"
  23. 230 PRINTTAB(5)"[195]. [197]XAMINE [196]ISK"
  24. 235 PRINTTAB(5)"[196]. [196]ISK [215]EDGE"
  25. 240 PRINTTAB(5)"[197]. [210]EVIVE"
  26. 245 PRINTTAB(5)"[198]. [205]ASS [211]CRATCH"
  27. 250 PRINTTAB(5)"[199]. [201][196] [195]HANGE
  28. 255 [153][163]5)"LEFT$. LEFT$EADER LENHANGE"
  29. 265 [153][163]5)"RIGHT$. (null)UPER RIGHT$NFO."
  30. 270 [153]"(null)SE CONT_WAITSTOP TO EXIT PROGRAM"
  31. 280 [153]"(null)ELECT YOUR CHOICE SINCMD";:[151]204,0
  32. 290 [161]R$:[139]R$[178]""[167]290
  33. 295 [139]R$[178]"_"[167][153]"LOADVALND (null)ROGRAM.":[128]
  34. 300 [139]R$[178]"A"[167][151]204,255:[137]1000
  35. 310 [139]R$[178]"B"[167][151]204,255:[137]6000
  36. 320 [139]R$[178]"C"[167][151]204,255:[137]11000
  37. 330 [139]R$[178]"D"[167][151]204,255:[137]16000
  38. 340 [139]R$[178]"E"[167][151]204,255:[137]21000
  39. 350 [139]R$[178]"F"[167][151]204,255:[137]26000
  40. 360 [139]R$[178]"G"[167][151]204,255:[137]31000
  41. 370 [139]R$[178]"H"[167][151]204,255:[137]35000
  42. 380 [139]R$[178]"I"[167][151]204,255:[137]41000
  43. 390 [137]290
  44. 1000 [153]"LOAD"
  45. 1010 [141]50000
  46. 1020 [153]"(null)(null)(null) ASCRIGHT$(null)STR$VAL(null)"
  47. 1030 [153]"(null)YS ASCINDER WILL FIND THE (null)(null)(null) NUMBER OF APROGRAM."
  48. 1040 [153]""
  49. 1050 [141]52000
  50. 1055 [151]204,255
  51. 1100 [143] LOAD ADDRESS FINDER
  52. 1110 [143] FINDS SYS?????
  53. 1120 [143]
  54. 1130 [153]"LOAD"
  55. 1140 [159]15,8,15:[141]1370
  56. 1150 [153]"ASCIND THE (null)(null)(null)STOP NUMBER ?"
  57. 1160 [133]"VALNTER FILE NAME  ";N$:[153]"
  58. 1170 IFN$=""THENCLOSE15:GOTO170
  59. 1180 IFLEN(N$)>16ORLEN(N$)<1THEN1160
  60. 1190 OPEN1,8,3,"0:"+N$+",P,R"
  61. 1200 GOSUB1370
  62. 1210 GET#1,LB$:GOSUB1370
  63. 1220 IFLB$=""THENLB$=CHR$(0)
  64. 1230 GET#1,HB$:GOSUB1370
  65. 1240 IFHB$=""THENHB$=CHR$(0)
  66. 1250 CLOSE1:GOSUB1370
  67. 1260 L=ASC(LB$)+256*ASC(HB$)
  68. 1270 PRINT
  69. 1280 PRINT"[204]OAD [193]DDRESS =" L "(DECIMAL)"LIST1280-
  70. 1290 PRINTTAB(15)"   ";
  71. 1300 L=L/4096
  72. 1310 FORI=1TO4:L%=L
  73. 1320 PRINTCHR$(48+L%-(L%>9)*7);
  74. 1330 L=16*(L-L%)
  75. 1340 NEXTI
  76. 1350 PRINT"(HEX)
  77. 1360 [160]15:[128]
  78. 1370 [132]15,EN,EM$,T,S
  79. 1380 [139]EN[179]20[167][142]
  80. 1390 [153]:[153]"STR$RIGHT$(null)(null)CLOSEVAL(null)(null)(null)(null):"
  81. 1400 [153]:[153]EN,EM$
  82. 1410 [160]1:[160]15:[129]I[178]1[164]2000:[130]:[137]170
  83. 6000 [153]"LOAD"
  84. 6010 [141]50000
  85. 6020 [153]"ATN(null)RIGHT$CHR$(null)(null)VAL(null)(null)"
  86. 6030 [153]"ATNLIGNMENT LENHECK WILL CHECK YOUR DISK    HEADS."
  87. 6040 [153]"(null)UTPUT WILL BE EITHER CONTLEFT$VALATNSTR$(null) (null)ATN(null)(null)VALSTR$ STOPOR   LEFT$VALATNSTR$(null) ASCATNRIGHT$(null)VALSTR$STOP."
  88. 6050 [153]"":[141]52000
  89. 6055 [153]"LOADATNLIGNMENT LENHECK IS A GO...":[151]204,255
  90. 6100 [159]1,8,15:[159]4,8,4,"#"
  91. 6110 FT[178]1:FT$[178][196](1):LT[178]35
  92. 6120 LT$[178][196](LT)
  93. 6130 [152]1,"U1:";4;0;LT;0
  94. 6140 T$[178]LT$:[141]6190
  95. 6150 [152]1,"U1:";4;0;FT;0
  96. 6160 T$[178]FT$:[141]6190
  97. 6170 LT[178]LT[171]1:[139]LT[177]0[167]6120
  98. 6180 [160]4:[160]1:[153]"CONTSTR$RIVE HAS PASSEDSTOP.":[129]T[178]1[164]2000:[130]:[137]170
  99. 6190 [153]"(null)EADING (null)RACK: ";T$;" "
  100. 6200 [132]1,EN,EM$,ET,ES
  101. 6210 [153][163]12)EN;EM$;ET;ES
  102. 6220 [139]EN[179]2 [167] [142]
  103. 6230 [153]"STR$RIVE HAS FAILEDSTOP.":[160]4:[160]1:[129]I[178]1[164]2000:[130]:[137]170
  104. 6240 [137] 6180
  105. 11000 [153]"LOAD"
  106. 11010 [141]50000
  107. 11015 [153]"VAL(null)ATN(null)RIGHT$(null)VALCLOSESTR$RIGHT$(null)(null)"
  108. 11020 [153]"(null)HIS CHECKS YOUR DISK FOR VALRRORS ON     TRACKS."
  109. 11025 [153]"ASC(null)(null)(null) LENLEFT$VALLEN(null) - CHECK EACH SECTOR / TRACK."
  110. 11030 [153]"(null)ATN(null)(null)CLOSELENLEFT$VALLEN(null) - 1 ST. SECTOR / TRACK."
  111. 11035 [153]"ASCULL LENHECK - SLOW."
  112. 11040 [153]"(null)ART LENHECK - FAST.STOP"
  113. 11050 [153]"":[141]52000
  114. 11055 [151]204,255
  115. 11100 [159]15,8,15,"I0"
  116. 11110 [132]15,A:[139]A[167]170
  117. 11120 [159]2,8,2,"#":Q$[178][199](0)
  118. 11130 ID[178]16[170]6:[137]11200
  119. 11140 MH[178][181](MEM[173]256):ML[178]MEM[171]MH[172]256:[152]15,"M-R";[199](ML);[199](MH)
  120. 11150 [161]#15,A$:A[178][198](A$[170]Q$):[142]
  121. 11160 :
  122. 11170 [153]"$";:NL[178][181](BY[173]16):[141]11180:NL[178]BY[171]16[172]NL
  123. 11180 [153][202]("0123456789ABCDEF",NL[170]1,1);:[142]
  124. 11190 :
  125. 11200 [153]"LOADVALXAMINE DISK"
  126. 11220 [153]"  STR$ISK (null)ENU     "
  127. 11230 [153]"1. STR$ISPLAY RIGHT$STR$'S"
  128. 11240 [153]"2. ASCAST ERROR EXAMINATION"
  129. 11250 [153]"3. ASCULL ERROR EXAMINATION"
  130. 11260 [153]"4. VALXIT"
  131. 11270 [153]"RIGHT$NPUT (1-4):";
  132. 11280 [159]1,0:[132]1,A$:[160]1:A[178][197](A$):[139]A[178]0[167]11200
  133. 11290 [139]A[177]5[167]11200
  134. 11300 [145]A[137]11310,11420,11490,11610
  135. 11310 [153]"LOADRIGHT$STR$ STR$RIGHT$(null)(null)(null)ATN(null)"
  136. 11320 [129]T[178]1[164]35
  137. 11330 [152]15,"U1:2,0,";T;",0"
  138. 11340 MEM[178]ID:[141]11140:IZ[178]A:MEM[178]ID[170]1:[141]11140:
  139. 11350 [153][201]([196](T),2);". ID=";[199](34);[199](IZ);[199](A);[199](34);" ";
  140. 11360 BY[178]IZ:[141]11170:[153]",";:BY[178]A:[141]11170
  141. 11370 [153][163]20);:[139]T[173]2[178][181](T[173]2)[167][153]
  142. 11380 [130]T
  143. 11390 [153]:[153]"(null)RESS (null)(null)ATNLENVALWAIT FOR (null)ENU"
  144. 11400 [161]A$:[139]A$[179][177]" "[167]11400
  145. 11410 [137]11200
  146. 11420 [153]"LOADASCAST VALRROR LENHECK"
  147. 11430 [129]T[178]1[164]35
  148. 11440 [153][201]([196](T),2);". ";
  149. 11450 [152]15,"U1:2,0,";T;",0"
  150. 11460 [132]15,A$,B$,C$,D$:DD$[178]A$[170]","[170]B$[170]","[170]C$[170]","[170]D$:[153]DD$
  151. 11470 [130]T
  152. 11480 [137] 11390
  153. 11490 [153]"LOADASCULL VALRROR LENHECK"
  154. 11500 [129]T[178]1[164]35:[129]S[178]0[164]99
  155. 11510 [152]15,"U1:2,0,";T;","S
  156. 11520 [132]15,A$,B$,C$,D$:DD$[178]A$[170]","[170]B$[170]","[170]C$[170]","[170]D$:[139]A$[178]"66"[167]11590
  157. 11530 [153]"T="T;"CMD S=";S;"CMD ";
  158. 11540 [139]A$[178]"00"[167][153]"ON":[137]11560
  159. 11550 [153]DD$
  160. 11560 [161]A$:[139]A$[179][177]" "[167]11580
  161. 11570 [161]A$:[139]A$[178]""[167]11570
  162. 11580 [130]S
  163. 11590 [130]T
  164. 11600 [137]11390
  165. 11610 [160]2:[160]15:[153]"LOAD":[137]170
  166. 16000 [153]"LOAD"
  167. 16010 [141]50000
  168. 16015 [153]"STR$RIGHT$(null)(null)CLOSE(null)VALSTR$CHR$VAL"
  169. 16020 [153]"
  170. 16030 PRINT"[195][193][213][212][201][207][206]":PRINT"[158][163][163][163][163][163][163][163][144]"
  171. 16040 PRINT"[211]OME COMMANDS IN THE [196][201][211][203] [215][197][196][199][197] CAN MESSUP A DISK."
  172. 16050 PRINT"[200][193][206][196][204][197] [215][201][212][200] [195][193][210][197] !"
  173. 16060 PRINT"":GOSUB52000
  174. 17110 A=0:PRINT"[147][196][201][211][203]+: [196]ISK COMMANDS"
  175. 17120 CLOSE15:POKE204,255
  176. 17130 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:
  177. 17140 PRINT" [196]ISK [211]TATUS: "A$"[160]"B$"[160]"C$"[160]"D$
  178. 17150 PRINT"  [195][146]ATALOGUE [196]ISK
  179. 17160 [153]"  LEFT$WAITEADER STR$ISK
  180. 17170 PRINT"  [214][146]ALIDATE [196]ISK
  181. 17180 [153]"  (null)WAITCRATCH ASCILES
  182. 17190 PRINT"  [210][146]ENAME [198]ILES
  183. 17200 [153]"  (null)WAITUIT PROGRAM: RETURN TO (null)ENU"
  184. 17210 [161]A$:[139]A$[179][177]"C"[175]A$[179][177]"H"[175]A$[179][177]"V"[175]A$[179][177]"S"[175]A$[179][177]"R"[175]A$[179][177]"Q"[167]17210
  185. 17220 [139]A$[178]"Q"[167][156]:[153]"LOAD":[137]170
  186. 17230 [139]A$[179][177]"C"[167]17360
  187. 17240 [153]"LOADSTR$RIGHT$(null)(null)+: STR$ISK COMMANDS"
  188. 17250 [153]""
  189. 17260 [159]1,8,0,"$0":[161]#1,A$:[161]#1,A$
  190. 17270 [139]A[178]2[167]A[178]0:[153]""
  191. 17280 [153][163]20[172]A);:[129]C[178]1[164]4:[161]#1,A$:[130]:[139]ST[179][177]0[167][160]1:[137]17330
  192. 17290 [161]#1,A$:[139]A$[178]""[167]A[178]A[170]1:[137]17270
  193. 17300 [139]A$[178][199](34)[167]B[178][168]B:[137]17290
  194. 17310 [139]B[167][153]A$;
  195. 17320 [137]17290
  196. 17330 [141]17410:[153]:[153]"             (null)RESS (null)PACE WAIT"
  197. 17340 [161]A$:[139]A$[178]""[167]17340
  198. 17350 [137]17110
  199. 17360 [153]"LOADSTR$RIGHT$(null)(null)+: STR$ISK LENOMMANDS"
  200. 17370 [139]A$[178]"H"[167]17450
  201. 17380 [139]A$[178]"V"[167]17570
  202. 17390 [139]A$[178]"S"[167]17640
  203. 17400 [139]A$[178]"R"[167]17760
  204. 17410 [160]15:[159]15,8,15:[132]15,A1$,B1$,C1$,D1$
  205. 17420 [139]B1$[179][177]"OK"[167][153]""
  206. 17430 [153]:[153]" "A1$;" ";B1$;" ";C1$;" "D1$""
  207. 17440 [160]15:[142]
  208. 17450 [153]"LEFT$EADER A DISK OPTION."
  209. 17460 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  210. 17470 [153]"ATNRE YOU SURE YOU WANT TO ERASE THIS DISK ?  WAIT"
  211. 17480 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]17480
  212. 17490 [139]A$[178]"N"[167]17110
  213. 17500 [153]"FOR(null)K."
  214. 17510 [133]"VALNTER NEW DISK NAME";D$
  215. 17520 [133]"CONTVALNTER NEW RIGHT$STR$ OR RETURN";ID$
  216. 17530 [139][195](ID$)[177]2[167]ID$[178][200](ID$,2)
  217. 17540 [139]ID$[178]""[167][159]15,8,15,"N0:"[170]D$[170]"":[160]15:[137]17110
  218. 17550 [153]"ASCORMATTING...":[159]15,8,15,"N0:"[170]D$[170]","[170]ID$[170]"":[160]15
  219. 17560 [141]17410:[137]17110
  220. 17570 [153]"OPEN(null)ALIDATE A DISK OPTION."
  221. 17580 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[160]15
  222. 17590 [153]" (null)HIS PROCESS WILL TIE UP YOUR DRIVE"
  223. 17600 [153]" FOR A FEW MINUTES."
  224. 17610 [153]"CLR  (null)(null)(null)(null)RIGHT$(null)CHR$."
  225. 17620 [159]15,8,15,"V":[160]15
  226. 17630 [141]17410:[137]17110
  227. 17640 [153]"(null)CRATCH A FILE OPTION."
  228. 17650 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  229. 17660 [153]"FORRIGHT$NPUT FILE NAME TO SCRATCH":A$[178]""
  230. 17670 [133]"";A$
  231. 17680 [139]A$[178]""[167]17110
  232. 17690 [133]"ATNRE YOU SURE";S$
  233. 17700 [139]S$[179][177]"Y"[167]17110
  234. 17710 [133]"REALLY";S$
  235. 17720 [141]17410
  236. 17730 [159]15,8,15,"S0:"[170]A$[170]""
  237. 17740 [141]17410
  238. 17750 [137]17110
  239. 17760 [153]"(null)ENAME A FILE OPTION."
  240. 17770 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":A$[178]""
  241. 17780 [153]"(null)HIS WILL CHANGE THE NAME OF A FILE."
  242. 17790 [153]"RIGHT$NPUT FILE NAME TO BE CHANGED"
  243. 17800 [133]"";A$
  244. 17810 [139]A$[178]""[167]17110
  245. 17820 [153]"RIGHT$NPUT NEW NAME"
  246. 17830 [133]"";B$
  247. 17840 [141]17410
  248. 17850 [159]15,8,15,"R0:"[170]B$[170]"="[170]A$[170]""
  249. 17860 [141]17410
  250. 17870 [137]17110
  251. 21000 [153]"LOAD"
  252. 21010 [141]50000
  253. 21020 [153]"(null)VAL(null)RIGHT$(null)VAL"
  254. 21030 [153]"(null)HIS WILL REVIVE PROGRAMS SCRATCHED ON  A DISK."
  255. 21040 [153]"(null)(null)(null)VAL":[153]"SYSTAB(TAB(TAB(TAB(STOP"
  256. 21050 [153]"RIGHT$F YOU HAVE VERIFIED OR SCRATCHED,"
  257. 21060 [153]"(null)HERE IS A CHANCE THAT FILE RETRIEVAL IS(null)(null)(null) (null)(null)(null)(null)RIGHT$PEEK(null)VALSTOP."
  258. 21070 [141]52000
  259. 21100 [153]"STOP"
  260. 21110 [151]204,255
  261. 21115 [153]"LOAD    (null)VAL(null)RIGHT$(null)VALCLOSE(null)(null)(null)CHR$(null)ATN(null)"
  262. 21120 [153]"SYS    TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  263. 21130 [133] "(null)HICH ASCILECLOSE?CLOSECLOSECMDCMDCMD";F$
  264. 21135 [139]F$[178]""[167]170
  265. 21137 [153]
  266. 21140 [153]"(null)HICH DISK DRIVE ?"
  267. 21150 [133]"1WAIT  1541    2WAIT  2031 OR 4040  3WAIT 8050CLOSECLOSE1CMDCMDCMD";DD$:DD[178][197](DD$):[153]
  268. 21160 [139] DD[179]1 [176] DD[177]3 [167] 21150
  269. 21170 [133] "DRIVE [0/1] CLOSECLOSE0CMDCMDCMD";D$:D[178][197](D$):[153]
  270. 21180 [139] D[179][177]0 [175] D[179][177]1 [167]21170
  271. 21190 [133] "(null)YPE OF FILECLOSECLOSECLOSECLOSECMDCMDCMD";TY$:[153]
  272. 21195 [139]TY$[178]"*"[167]170
  273. 21200 T[178]18:MXSCT[178]19
  274. 21210 [139] DD[178]2 [167] MXSCT[178]18
  275. 21220 [139] DD[178]3 [167] T[178]39 :MXSCT[178]28
  276. 21230 TY[178]128[171](TY$[178]"SEQ")[171]2[172](TY$[178]"PRG")[171]3[172](TY$[178]"USR"):[139] TY[178]128 [167] 21190
  277. 21240 [159]15,8,15:NL$[178][199](0)
  278. 21250 [159]2,8,2,"#":[161]#2,X$
  279. 21260 [129] S[178]1 [164] MXSCT :[143] 19 FOR 2040[160]& 18 FOR 2031 AND 4040 & 26 FOR 8050
  280. 21270 [152]15,"U1:";2;D;T;S
  281. 21280 [129] I[178]0 [164] 7
  282. 21290 [152]15,"B-P:";2;(2[172]32[172]I)
  283. 21300 [161]#2,FT$: [143]   * READ FILE TYPE
  284. 21310 [139] FT$[178]"" [167] FT$[178]NL$
  285. 21320 FT[178][198](FT$):[139] FT[179][177]0 [175] FT[179][177]129 [175]  FT[179][177]130 [175] FT[179][177]131 [167] 21400
  286. 21330 [152]15,"B-P:";2;(5[170]32[172]I)
  287. 21340 W$[178]""
  288. 21350 [129] Q[178]1 [164] 16
  289. 21360     [161]#2,A$:[139] A$[178]"" [167] A$[178]NL$
  290. 21370     W$[178]W$[170]A$
  291. 21380 [130] Q
  292. 21390 [139] F$[178][200](W$,[195](F$)) [167] 21430
  293. 21400 [130] I
  294. 21410 [130] S:[153] "FORASCILE (null)OT ASCOUND !!"
  295. 21420 [137] 21770
  296. 21430 [153] "CLRASCOUND      :";W$"WAIT"
  297. 21440 I1[178]I:S1[178]S
  298. 21450 [152]15,"B-P:";2;(2[170]32[172]I)
  299. 21460 [161]#2,FT$,TR$,SS$
  300. 21470 [139] FT$[178]"" [167] FT$[178]NL$
  301. 21480 [139] TR$[178]"" [167] TR$[178]NL$
  302. 21490 [139] SS$[178]"" [167] SS$[178]NL$
  303. 21500 TR[178][198](TR$):SS[178][198](SS$)
  304. 21510 [152]15,"B-P:";2,(30[170]32[172]I)
  305. 21520 [161]#2,N1$:[139] N1$[178]"" [167] N1$[178]NL$
  306. 21530 [161]#2,N2$:[139] N2$[178]"" [167] N2$[178]NL$
  307. 21540 NB[178][198](N1$)[170][198](N2$)
  308. 21550 [153] "(null)TART   (null)RACK     :" TR
  309. 21560 [153] "(null)TART   (null)ECTOR    :" SS
  310. 21570 [153] "ASCILE    (null)ENGTH    :" NB:[153]
  311. 21580 T5[178]TR:S5[178]SS:AT[178]0
  312. 21590 [152]15,"U1:";2;D;T5;S5
  313. 21600 [161]#2,TL$,SL$:AT[178]AT[170]1
  314. 21610 [139] TL$[178]"" [167] TL$[178]NL$
  315. 21620 [139] SL$[178]"" [167] SL$[178]NL$
  316. 21630 TL[178][198](TL$):SL[178][198](SL$)
  317. 21640 [153] "LINK  TCLOSE&CLOSES  :"; TL "," SL
  318. 21650 [139] TL[179][177]0 [167] T5[178]TL: S5[178]SL: [137] 21590
  319. 21660 [139] NB[179][177]AT [167] [153] " ASCILE REVIVAL WAIT  (null)(null)(null)CLOSE(null)(null)(null)(null)RIGHT$PEEK(null)VAL !!"
  320. 21670 [153] " ASCILE REVIVAL WAIT  IS POSSIBLE !!"
  321. 21680 [152]15,"B-R:";2;D;T;S1
  322. 21690 [152]15,"B-P:";2;(2[170]32[172]I1)
  323. 21700 [152]2,[199](TY);
  324. 21710 [152]15,"U2:";2;D;T;S1
  325. 21720 [152]15,"V:" D
  326. 21730 :
  327. 21740 :
  328. 21750 [153] "OPEN (null)LEASE WAIT....."
  329. 21760 :
  330. 21770 [160]2:[160]15:[153]"STOP(null)ETURNING TO (null)AIN (null)ENU !":[129]I[178]1[164]2000:[130]:[137]170
  331. 26000 [153]"LOAD"
  332. 26010 [141]50000
  333. 26020 [153]"(null)ATN(null)(null)CLOSE(null)LEN(null)ATN(null)LENLEFT$"
  334. 26030 [153]"(null)HIS WILL (null)LEN(null)ATN(null)LENLEFT$STOP MORE THAN ONE PROGRAM ON A DISK AT A TIME."
  335. 26040 [141]52000
  336. 26100 [153]"LOAD":[151]204,255
  337. 26110 [151]53281,1:[151]53280,1
  338. 26120 [153]"(null)ASS (null)CRATCH":[153]"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(STOP"
  339. 26130 N[178]0:[134] F$(500)
  340. 26140 [153]:[153]"CONT(null)HICH DRIVE? (0/1) ";:[151]204,0
  341. 26150 [161] DN$:[139] DN$ [179]"0" [176] DN$ [177] "1" [167] 26150
  342. 26160 [153] DN$:[153]"LOAD"
  343. 26170 [151]204,255
  344. 26180 [159]15,8,15
  345. 26190 [159]1,8,0,"$"[170]DN$
  346. 26200 [132]15,E,E$:[139] E$[179][177]"OK" [167] [153] E$:[137] 26720
  347. 26210 [161]#1,G$,G$,G$,G$:[139]G$[178]""[167]26720
  348. 26220 [161]#1,A$,B$:[153] ([198](A$[170][199](0))[170]256[172][198](B$[170][199](0)));
  349. 26230 [161]#1,G$:[139]G$[178]"" [167] 26250
  350. 26240 [153] G$;:[137] 26230
  351. 26250 [153]: [153]:[153] "(null)WAITCRATCH OR (null)WAITEAVE FOLLOWING FILES?"
  352. 26260 [153] "ATNWAITBORT - RETURN TO MAIN MENU."
  353. 26270 [153]"STOP"
  354. 26280 [153]:[161]#1,G$,G$:[139]G$[178]""[167]26420
  355. 26290 [161]#1,G$,G$
  356. 26300 F$[178]""
  357. 26310 [161]#1,G$:[139]G$[178]"" [167] 26280
  358. 26320 [139] G$[179][177][199](34)[167]26310
  359. 26330 [161]#1,G$:[139]G$[178][199](34)[167]26350
  360. 26340 F$[178]F$[170]G$:[137]26330
  361. 26350 [153] F$;" ";
  362. 26360 [161] G$:[139] G$[179][177]"S" [175] G$[179][177]"L" [175]G$[179][177]"A"[167] 26360
  363. 26370 [139]G$[178]"A"[167][153][163]17)"CONTABORTWAITSTOP":[129]I[178]1[164]2000:[130]:[137]170
  364. 26380 [139]G$[178]"L"[167][153][163]17)"CONTLEAVEWAITSTOP";
  365. 26390 [139] G$[178]"S" [167] F$(N)[178]F$:N[178]N[170]1:[153][163]17)"CONT(null)CRATCHWAITSTOP";
  366. 26400 [161]#1,G$:[139] G$[179][177]"" [167] 26400
  367. 26410 [137]26280
  368. 26420 N[178]N[171]1:[160]1
  369. 26430 [139] N[179]0 [167] 26720
  370. 26440 [153]:[153] "(null)IST OF FILES TO BE SCRATCHED:":[153]
  371. 26450 [129] I[178]0 [164] N
  372. 26460 [153] F$(I)
  373. 26470 [129] J[178]1 [164] 500:[130]
  374. 26480 [130]
  375. 26490 [153]:[153] "LENORRECT? (Y/N) ";
  376. 26500 [161] G$:[139] G$[179][177]"Y" [175] G$[179][177]"N" [167] 26500
  377. 26510 [153]G$
  378. 26520 [139] G$[178]"Y" [167] 26580
  379. 26530 [153]:[153] "ATNWAITBORT OR STR$WAITISPLAY LIST AGAIN? ";
  380. 26540 [161] G$:[139] G$[179][177]"A" [175] G$[179][177]"D" [167] 26540
  381. 26550 [153] G$
  382. 26560 [139] G$[178]"A" [167] 26720
  383. 26570 [137] 26440
  384. 26580 [153]:[153] "(null)ORKING.... COME BACK LATER!":[153]
  385. 26590 [152]15,"V";DN$
  386. 26600 [153]"LENOLLECTING FOR FIRST TIME"
  387. 26610 [132]15,E,E$:[139]E$[179][177]"OK" [167] [153]E$:[137] 26720
  388. 26620 [129] I[178]0 [164] N
  389. 26630 [152]15,"S";DN$;":";F$(I)
  390. 26640 [153] "SCRATCHING ";F$(I)
  391. 26650 [132]15,E,E$,E1
  392. 26660 [139] E$[179][177]"ASCILES (null)CRATCHED" [176] E1[179][177]1 [167] [153] E;E$;E1:[137]26720
  393. 26670 [130]
  394. 26680 [152]15,"V";DN$
  395. 26690 [153]"LENOLLECTING FOR SECOND TIME"
  396. 26700 [132]15,E,E$:[139]E$[179][177]"OK" [167] [153]E$:[137] 26720
  397. 26710 [153]:[153]"ASCINISHED..."
  398. 26720 [160]1:[160]15:[137]60000
  399. 31000 [153]"LOAD"
  400. 31010 [141]50000
  401. 31020 [153]"RIGHT$STR$ LENLEFT$ATN(null)CHR$VAL"
  402. 31030 [153]"(null)HIS WILL CHANGE THE CONTRIGHT$STR$STOP OF A DISK."
  403. 31040 [153]"(null)HE CONTRIGHT$STR$STOP CAN ONLY BE 2STOP CHARACTERS IN      LENGTH."
  404. 31050 [141]52000:[151]204,255
  405. 31100 [153]"LOADRIGHT$STR$ CHANGE."
  406. 31110 [153]"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(STOP"
  407. 31120 [159]9,0,0:[159]15,8,15
  408. 31150 MD$[178]"":[129]I[178]1[164]32:MD$[178]MD$[170]"":[130]
  409. 31160 [129]I[178]1[164]39:BL$[178]BL$[170]" ":[130]
  410. 31170 [131]2,OUT OF RANGE,TOO LONG
  411. 31180 [135]A:[134]EM$(A):[129]I[178]1[164]A:[135]EM$(I):[130]
  412. 31190 [137]31320
  413. 31200 [132]15,ER:[139]ER[178]0[167][142]
  414. 31210 [132]15,ER,EM$,ET$,ES$
  415. 31220 [153]MD$"        STR$RIGHT$(null)(null)CLOSEVAL(null)(null)(null)(null)!WAIT #"ER" "EM$" "ET$", "ES$
  416. 31230 [128]
  417. 31240 [132]9,Q$:[153]:Q1$[178][200](Q$,1):[142]
  418. 31250 [160]2:[160]15:[151]59468,PK:[153]"LOAD":[137]170
  419. 31260 [153][200](MD$,MD)BL$:[153]BL$
  420. 31270 [153][200](MD$,MD);:[142]
  421. 31280 MD[178]21:[141]31260
  422. 31290 [153]"LOAD       (null)NACCEPTABLE ENTRY -- "EM$(EM):[137]31440
  423. 31300 [153]RE$:[141]31240:[141]31260
  424. 31310 [142]
  425. 31320 F[178]0
  426. 31330 DV[178]0
  427. 31340 [153]P0$:[153][166]10)"(null)LACE DISK IN DRIVE"DV""
  428. 31350 [153]" (null)RESS RETURN.":[141]31240
  429. 31360 [152]15,"I"[170][196](DV):[141]31200
  430. 31370 [159]2,8,2,"#":[152]15,"U1:2";DV;",18,0":[141]31200
  431. 31380 [152]15,"B-P:2,162":[141]31200:DN$[178]""
  432. 31390 [129]I[178]1[164]16:[161]#2,A$:DN$[178]DN$[170]A$:[130]
  433. 31400 MD[178]10:[141]31260:[139]F[167][142]
  434. 31410 [153][166]9)"LOADLOAD(null)HE DISK RIGHT$STR$ # ISSTOP ";DN$
  435. 31420 MD[178]13
  436. 31430 MD[178]16
  437. 31440 [153][166]10)"SYSVALNTER";
  438. 31450 [153]" CLR(null)EW DISK RIGHT$STR$ #":[153][166]10)"(null)IMITED TO 2 CHARACTERS"
  439. 31460 [141]31240:[139][195](Q$)[177]2[167]EM[178]2:[141]31280:MD[178]18:[141]31260:[137]31460
  440. 31470 NDN$[178][200](Q$[170]BL$,2)
  441. 31480 MD[178]21:[141]31260
  442. 31490 [153][166]12)"(null)HALL RIGHT$ SEND "NDN$
  443. 31500 [153][166]2)"TO THE DISKETTE ON DRIVE"DV"? (Y/N) ";
  444. 31510 [161]E$:[139]E$[178]""[167]31510
  445. 31520 [139]E$[178]"N"[167]31250
  446. 31530 [137]31560
  447. 31540 [139]Q1$[179][177]"N"[167][141]31260:MD[178]18:[137]31430
  448. 31550 [137]31480
  449. 31560 MD[178]21:[153][166]13)"LOAD(null)LEASE WAIT...."
  450. 31570 [152]15,"B-P:2,162":[141]31200
  451. 31580 [152]2,NDN$;:[141]31200
  452. 31590 [152]15,"U2:2";DV;",18,0":[141]31200[155] 300[171]350
  453. 31600 [152]15,"I"[170][196](DV):[141]31200:[160]2
  454. 31610 F[178]1:[153]P0$:[141]31360:F[178]0
  455. 31620 [153]"LOAD":    [153][166]7)"(null)HE (null)EW DISK RIGHT$STR$ IS ";DN$
  456. 31630 [160]2:MD[178]21:[141]31260:[153][166]12)"DO YOU WISH TO DO"
  457. 31640 [153][166]8)"CONTATNNOTHER DISKETTE? (Y/N) "
  458. 31650 [161]U$:[139]U$[178]""[167]31650
  459. 31660 [139]U$[178]"Y"[167]31340
  460. 31670 [139]U$[178]"N"[167]31250
  461. 31680 [137]31650
  462. 35000 [153]"LOAD"
  463. 35010 [141]50000
  464. 35020 [153]"LEFT$VALATNSTR$VAL(null) LENLEFT$ATN(null)CHR$VAL"
  465. 35030 [153]"(null)OU CAN CHANGE THE HEADER OF YOUR DISK,"
  466. 35040 [153]"WITHOUT (null)(null)(null)RIGHT$(null)CHR$CLOSESTR$ATN(null)ATNSTOP WHICH IS ON THE DISK."
  467. 35050 [141]52000
  468. 36100 [153]"LOAD"
  469. 36110 [159]9,0,0:[159]15,8,15
  470. 36120 PK[178][194](53272)
  471. 36130 MD$[178]"":[129]I[178]1[164]20:MD$[178]MD$[170]"":[130]
  472. 36140 [129]I[178]1[164]39:BL$[178]BL$[170]" ":[130]:[151]204,255
  473. 36150 P0$[178]"LOAD       STR$ISK LEFT$EADER (null)AME LENHANGERPRINT#"
  474. 36160 P0$[178]P0$[170]"
  475. 36170 RE$="[152][208]RESS [210][197][212][213][210][206][146] TO CONTINUE
  476. 36180 [131]2,OUT OF RANGE,TOO LONG
  477. 36190 [135]A:[134]EM$(A):[129]I[178]1[164]A:[135]EM$(I):[130]
  478. 36200 [137]36330
  479. 36210 [132]15,ER:[139]ER[178]0[167][142]
  480. 36220 [132]15,ER,EM$,ET$,ES$
  481. 36230 [153]MD$"DISK ERROR!WAIT #"ER" "EM$" "ET$", "ES$
  482. 36240 [128]
  483. 36250 [132]9,Q$:[153]:Q1$[178][200](Q$,1):[142]
  484. 36260 [160]2:[160]15:[151]59468,PK:[153]"LOAD":[137]170
  485. 36270 [153][200](MD$,MD)BL$:[153]BL$
  486. 36280 [153][200](MD$,MD);:[142]
  487. 36290 MD[178]21:[141]36270
  488. 36300 [153]"(null)NACCEPTABLE ENTRY -- "EM$(EM)
  489. 36310 [153]RE$:[141]36250:[141]36270
  490. 36320 [142]
  491. 36330 F[178]0:[153]P0$
  492. 36340 [153]"SYS(null)N WHICH DRIVE FOR CHANGES? (0/1) ";:[141]36250
  493. 36350 DV[178][197](Q$):[139]DV[179]0[176]DV[177]1[167]EM[178]1:[141]36290:[137]36330
  494. 36360 [139]DV[178]0[175]Q1$[179][177]"0"[167]EM[178]1:[141]36290:[137]36330
  495. 36370 [153]P0$:[153]"PRINT#(null)LACE DISKETTE IN DRIVE"DV""
  496. 36380 [153]RE$:[141]36250
  497. 36390 [152]15,"I"[170][196](DV):[141]36210
  498. 36400 [159]2,8,2,"#":[152]15,"U1:2";DV;",18,0":[141]36210
  499. 36410 [152]15,"B-P:2,144":[141]36210:DN$[178]""
  500. 36420 [129]I[178]1[164]16:[161]#2,A$:DN$[178]DN$[170]A$:[130]
  501. 36430 MD[178]10:[141]36270:[139] F [167] [142]
  502. 36440 [153]"(null)HE (null)RESENT STR$ISK (null)AME IS:
  503. 36450 PRINTTAB(5)CHR$(34)DN$CHR$(34)
  504. 36460 MD=13:GOSUB36270
  505. 36470 PRINT"[156][196]O YOU WISH TO CHANGE IT? (Y/N) ";:GOSUB36250
  506. 36480 IFQ1$="N"THEN36680
  507. 36490 IFQ1$<>"Y"THEN36460
  508. 36500 MD=16:GOSUB36270
  509. 36510 PRINT"[129][197]NTER [206]EW [196]ISK [206]AME":PRINT"[204]IMIT OF 16 CHARACTERS "
  510. 36520 GOSUB36250:IFLEN(Q$)>16THENEM=2:GOSUB36290:MD=18:GOSUB36270:GOTO36520
  511. 36530 NDN$=LEFT$(Q$+BL$,16)
  512. 36540 MD=21:GOSUB36270
  513. 36550 PRINT"[211]HALL [201] SEND "NDN$
  514. 36560 PRINT"[154]TO THE [196]ISKETTE ON DRIVE"DV"? (Y/N) ";:GOSUB36250
  515. 36570 IFQ1$="Y"THEN36600
  516. 36580 IFQ1$<>"N"THENGOSUB36270:MD=18:GOSUB36270:GOTO36500
  517. 36590 GOTO36540
  518. 36600 MD=21:GOSUB36270:PRINT"[147][150][208]LEASE WAIT...."
  519. 36610 PRINT#15,"B-P:2,144":GOSUB36210
  520. 36620 PRINT#2,NDN$;:GOSUB36210
  521. 36630 PRINT#15,"U2:2";DV;",18,0":GOSUB36210
  522. 36640 PRINT#15,"I"+STR$(DV):GOSUB36210:CLOSE2
  523. 36650 F=1:PRINTP0$:GOSUB36390:F=0
  524. 36660 PRINT"[212]HE [206]EW [196]ISK [206]AME IS:
  525. 36670 [153][199](34)DN$[199](34)
  526. 36680 [160]2:MD[178]21:[141]36270:[153]"STR$O YOU WISH TO DO
  527. 36690 PRINT"[129]ANOTHER DISKETTE? (Y/N) ";:GOSUB36250
  528. 36700 IFQ1$="Y"THEN36370
  529. 36710 IFQ1$="N"THEN36260
  530. 36720 GOTO36680
  531. 36730 PRINT"[147]"
  532. 36740 POKE53281,1:POKE53280,1
  533. 41000 PRINT"[147]"
  534. 41010 GOSUB50000
  535. 41020 PRINT"[211][213][208][197][210][160][201][206][198][207]"
  536. 41030 PRINT"[211][213][208][197][210][160][201][206][198][207][144] IS FUTURE SUPERDISK PROGRAMS"
  537. 41040 PRINT"THAT COMBINE ALOT OF UTILITIES INTO ONE"
  538. 41050 PRINT"[195]OMING OUT IN [211][213][208][197][210][196][201][211][203] [201][201][201]."
  539. 41060 PRINT"[197]RROR [215]RITER.":PRINT"[196]ISK [196]OCTOR.":PRINT"AND MUCH MORE.."
  540. 41070 GOSUB52000
  541. 41073 POKE204,255
  542. 41075 PRINT: PRINT"[212]HAT IS ALL THE INFO AT THIS TIME."
  543. 41080 PRINT"[210]ETURNING TO [205]AIN [205]ENU.":FORI=1TO2000:NEXT:GOTO170
  544. 49999 END
  545. 50000 POKE204,255:POKE53280,1:POKE53280,1:POKE646,0
  546. 50005 PRINT"[144][211][213][208][197][210][196][201][211][203] [201][201][221]             [221][208]ETE [195]SASZAR"
  547. 50010 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  548. 50015 RETURN
  549. 51000 FORT=1TO26:PRINT
  550. 51010 NEXT
  551. 51020 RETURN
  552. 52000 PRINT"[211]HALL THE PROCESS CONTINUE ? (Y/N) [191][157]";:POKE204,0
  553. 52010 GETR$:IFR$=""THEN52010
  554. 52020 IFR$="Y"THENRETURN
  555. 52030 IFR$="N"THENPOKE204,255:GOTO170
  556. 52040 GOTO52010
  557. 65535 :REM
  558.